\begin{tikzpicture}
	\tkzDefPoints{-2/0/A, 2/0/B, 0/0/C, 0/2/D, 0/0/P}

	\tkzDrawSegments(A,B  C,D)
	\tkzMarkRightAngle(B,O,D)
	\tkzLabelSegment[pos=0.0, left](A,B){$l$}
	\tkzDrawPoint[fill=black](P)
	\tkzLabelPoints[below](P)
\end{tikzpicture}

